y<-3#建立英文对象
y#输出
来<-2#建立中文对象
来#输出
.he=23#建立隐藏对象
he#输出
a<-c(11,12,3,4,5,6,7,18,19,10)#包含10个数的数值向量
weight<-factor(c('L','L','L','M','M','H','H','L','L','M'))#包含10个值的因子weight，对应3个组“L”、“M”、“H”低中高
age<-c(12,14,55,18,28,20,30,24,25,26)#包含10个数的数值向量age
tapply(age,weight,mean)#计算因子间不同组间的均值

b<-c(1,2,3,4,5,6,7,8,9,10)#生成包含10个数的数值向量b
c<-c(21,22,23,24,25,26,27,28,29,30)#生成包含10个数的数值向量c
df<-data.frame(age,b,c,weight)#将数值向量age、b、c、因子向量weight组合成数据框df
print(df)#输出数据框df

num=sample(1:50,10,replace=TRUE)#在1：50中任意取10个整数
print(num)#输出num

for(i in num){if(i>10){print(i)}}#输出大于10的num中的数值

#输出＞10的num数值的个数
j<-0
for(i in num)
{if (i>10){j<-j+1}}
print(j)

#利用条件语句对num进行从小到大的排序
for(i in 1:(length(num)-1))
  {
    for(j in 1:(length(num)-i))
      {
       if(num[j]<num[j+1])#如果前一个数比后一个数小就利用第三方temp进行交换
         {
          temp<-num[j]
          num[j]<-num[j+1]
          num[j+1]<-temp
       }
    }
}
print(num)
    